home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0146_RealMode code to modify EXE..pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  3.7 KB  |  102 lines
  1. {
  2. Most suggestions for modifying EXE files involve storing and searching
  3. for a marker value.  This seems clumsy.  An alternative is given in
  4. "PC Techniques C/C++ Power Tools" by Duntemann & Weiskamp.  This
  5. involves deducing the position in the disk file at which initialised
  6. constants are stored, based on their address in RAM at run time.
  7.  
  8. I have produced a demo Pascal program based on these ideas.  The code
  9. is given below.  It works fine, but only in real mode.  Can anyone see
  10. any way to use the same approach in protected mode or, ideally, in
  11. Windows ?
  12. }
  13. program TestMod;
  14.  
  15. type  TEXEHeader = record
  16.                      EXEID    : Word;  {EXE File identifier          }
  17.                      ByteMod  : Word;  {Load module image size mod512}
  18.                      Pages    : Word;  {File size (inc hdr) div 512  }
  19.                      RelocCnt : Word;  {No. of relocation table items}
  20.                      Size     : Word;  {Header size in 16-byte paras }
  21.                      MinParas : Word;  {Min. No. of paras above prog }
  22.                      MaxParas : Word;  {Max. No. of paras above prog }
  23.                      StackSeg : Word;  {Displacement of stack segment}
  24.                      spreg    : Word;  {Initial SP register value    }
  25.                      CheckSum : Integer;{Negative checksum (unused)  }
  26.                      ipreg    : Word;  {Initial IP register value    }
  27.                      CodeSeg  : Word;  {Displacement of code segment }
  28.                      Reloc1   : Word;  {First relocation item        }
  29.                      ovln     : Word;  {Overlay number               }
  30.                    end;
  31.  
  32. const MyStr : String = 'Original string in EXE file'; 
  33.       PSPSize = 16; { Size of Program Segment Prefix = 16 paragraphs }
  34.       ParaSize = 16; { 1 paragraph = 16 bytes }
  35.       fmShareDenyWrite = $0020; { EXE File open mode }
  36.  
  37. var   EXEHdrSize  : Integer;
  38.       EXEName     : String;
  39.       DiskPos     : LongInt;
  40.       F           : File;
  41.  
  42. procedure GetEXENameAndHdrSize;
  43. var   EXEHdr  : TEXEHeader;
  44. begin EXEName := ParamStr(0);
  45.       Assign(F,EXEName);
  46.       FileMode := fmShareDenyWrite;
  47.       Reset(F,1);
  48.       BlockRead(F,EXEHdr,SizeOf(TEXEHeader));
  49.       close(F);
  50.       EXEHdrSize := EXEHdr.Size;
  51.       end;
  52.  
  53. procedure RestoreDefaultStr( var S : String );
  54. var   DiskPos : LongInt;
  55. begin assign(F,EXEName);
  56.       FileMode := fmShareDenyWrite;
  57.       reset(F,1);
  58.       DiskPos :=
  59. (Seg(S)-(PrefixSeg+PSPSize)+EXEHdrSize)*ParaSize+Ofs(S);
  60.       seek(F,DiskPos);
  61.       blockread(F,S[0],1); { Find size of default value for string }
  62.       blockread(F,S[1],Integer(S[0])); { Read the string itself }
  63.       close(F);
  64.       end;
  65.  
  66. procedure SetNewDefaultStr( var S : String );
  67. var   DiskPos : LongInt;
  68. begin assign(F,EXEName);
  69.       FileMode := fmShareDenyWrite;
  70.       rewrite(F,1);
  71.       DiskPos :=
  72. (Seg(S)-(PrefixSeg+PSPSize)+EXEHdrSize)*ParaSize+Ofs(S);
  73.       seek(F,DiskPos);
  74.       blockwrite(F,S[0],Length(S)+1);
  75.       close(f);
  76.       end;
  77.  
  78.  
  79. begin
  80.  
  81.   GetEXENameAndHdrSize;
  82.  
  83.   writeln(MyStr);            { Show original string value  }
  84.  
  85.   MyStr := 'Changed in RAM'; { Change string so we can tell}
  86.   Writeln(MyStr);            { if we read EXE file OK.     }
  87.  
  88.   RestoreDefaultStr( MyStr );{ Read original from EXE file }
  89.   Writeln(MyStr);
  90.  
  91.   MyStr := 'Written to EXE'; { Change the string and       }
  92.   SetNewDefaultStr( MyStr ); { write new value to EXE file }
  93.  
  94.   MyStr := 'Temp RAM value'; { Change again so we can test }
  95.   writeln(MyStr);            { if new value read from EXE  }
  96.  
  97.  
  98.   RestoreDefaultStr( MyStr );{ Read the value we earlier   }
  99.   Writeln(MyStr);            { wrote to the EXE file.      }
  100.  
  101.   end.
  102.